Top 10k strings from Colour (1986)(Salmi, Timo).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /
Back to the directory listing
1 5070 END DEFine p_nayta
1 5060 CLOSE#3
1 5050 CLS#3
1 5040 BORDER#3,4,0
1 5030 PAPER#3,vari
1 5020 WINDOW#3,172,120,296,86
1 5010 OPEN#3,scr_
1 5000 DEFine PROCedure p_nayta(vari)
1 4130 END DEFine f_vari
1 4120 RETurn y
1 4110 y=y+c$(1)*32+c$(2)*16+c$(3)*8
1 4100 END FOR i
1 4090 c$(i)=c$(i) XOR b$(i)
1 4080 FOR i=1 TO 3
1 4070 c$=f_bin$((c))
1 4060 y=y+b$(1)*4+b$(2)*2+b$(3)
1 4050 b$=f_bin$((b))
1 4040 y=b$(2)*128+b$(3)*64
1 4030 b$=f_bin$((s))
1 4010 LOCal y,b$(3),c$(3),i
1 4000 DEFine FuNction f_vari(s,c,b)
1 32260 END DEFine vsave
1 32250 PRINT#0,"Saved"!bvl$!"version"!ver1%;".";ver%
1 32240 LIST#3,32130 TO:CLOSE#3
1 32230 PRINT#3,"32120 ver1%=";ver1%;":ver2%=";ver%
1 32220 LIST#3,100 TO 32110
1 32210 PRINT#3,"4 :"
1 32200 PRINT#3,"3 REMark version"!ver1%;".";ver%
1 32190 PRINT#3,"2 REMark ";DAY$!DATE$
1 32180 PRINT#3,"1 REMark ";avl$!"(c) Timo Salmi"
1 32170 DELETE bvl$:OPEN_NEW#3,bvl$:ver%=ver2%+1
1 32160 bvl$=dvl$(dr)&avl$
1 32150 dvl$(5)="ram1_":dvl$(6)="ram2_"
1 32140 dvl$(3)="fdk1_":dvl$(4)="fdk2_"
1 32130 dvl$(1)="mdv1_":dvl$(2)="mdv2_"
1 32120 ver1%=1:ver2%=0
1 32110 BEEP 4000,12:STOP:END IF
1 32100 PRINT#0,DAY$!DATE$!"Not saved, set SDATE"
1 32090 IF bvl$<>1986 THEN
1 32080 bvl$=DATE$:bvl$=bvl$(1 TO 4)
1 32070 LOCal avl$(42),bvl$(42),dvl$(6,5):avl$="colour"
1 32060 DEFine PROCedure vsave(dr)
1 32050 vsave 6:STOP
1 32040 vsave 5:STOP
1 32030 vsave 4:STOP
1 32020 vsave 3:STOP
1 32010 vsave 2:STOP
1 32000 vsave 1:STOP
1 31990 STOP
1 3120 END DEFine f_bin$
1 31110 END DEFine reset
1 31100 SCALE 100,0,0:FILL 0
1 3110 END REPeat loop
1 31090 PAPER#0,0:INK#0,7-3*(i=0):INK 7:CLS
1 31080 FOR il=0,1,2:CSIZE#il,(i=4)+2*(i=8),0:END FOR il
1 31070 PAPER 2*(i=8):BORDER (i=4),4*(i=4)
1 31060 WINDOW 448+8*(i=4),200+2*(i=4),32-4*(i=4),16-(i=4)
1 31050 WINDOW#2,448,200,32,16:PAPER#2,1:INK#2,7
1 31040 WINDOW#0,448,40-(i=4),32,216+(i=4)
1 31030 WINDOW 512,256,0,0:PAPER 0:CLS
1 31020 FOR il=1,2:OPEN#il,con_:END FOR il
1 31010 LOCal il:MODE i
1 31000 DEFine PROCedure reset(i)
1 3100 END IF
1 310 p_valmis(0)
1 3090 RETurn y$
1 3080 y$=FILL$("0",3-LEN(y$))&y$
1 3070 IF n=0 THEN
1 3060 n = n DIV 2
1 3050 y$=num$(1+(n MOD 2))&y$
1 3040 REPeat loop
1 3030 n=dluku:y$=""
1 3020 num$="01"
1 3010 LOCal num$(2),n,y$(3),loop
1 30090 END DEFine p_valmis
1 30080 PRINT#ch%,sl!"sec"
1 30070 IF ml>0 OR tl>0 THEN PRINT#ch%,ml!"min"!;
1 30060 IF tl>0 THEN PRINT#ch%,tl!"h"!;
1 30050 ml=INT(sl/60):sl=sl-60*ml
1 30040 tl=INT(sl/3600):sl=sl-tl*3600
1 30030 sl=DATE-kokoaika
1 30020 PRINT#ch%,"READY,"!"elapsed"!"time"!;
1 30010 LOCal tl,ml,sl
1 30000 DEFine PROCedure p_valmis(ch%)
1 3000 DEFine FuNction f_bin$(dluku)
1 300 reset(8)
1 3 REMark version 1.0
1 280 END REPeat loop
1 270 p_nayta(vari)
1 260 PRINT"COLOUR ="!vari
1 2560 END DEFine p_moka
1 2550 PRINT"3,4,2"
1 2540 PRINT"2,4 or"
1 2530 PRINT"2 or"
1 2520 PRINT"INPUT FOR EXAMPLE:"
1 2510 INK 6:p_beep1
1 2500 DEFine PROCedure p_moka
1 250 vari=f_vari((stip),(cont),(back))
1 2480 END DEFine f_kysy
1 2470 RETurn 0
1 2460 back=al$(3)
1 2450 cont=al$(2)
1 2440 stip=al$(1)
1 2430 END IF
1 2420 GO TO 2040
1 2410 PRINT"Stipple must be 0-3"
1 2400 INK 6:p_beep1
1 240 IF st:EXIT loop:END IF
1 2390 IF al$(1)<"0"OR al$(1)>"3"THEN
1 2380 END IF
1 2370 GO TO 2040
1 2360 PRINT"Contrast must be 0-7"
1 2350 INK 6:p_beep1
1 2340 IF al$(2)<"0"OR al$(2)>"7"THEN
1 2330 END IF
1 2320 GO TO 2040
1 2310 PRINT"Background must be 0-7"
1 2300 INK 6:p_beep1
1 230 REMark stip, cont, back
1 2290 IF al$(3)<"0"OR al$(3)>"7"THEN
1 2280 END SELect
1 2270 p_moka:GO TO 2040
1 2260 ON p=REMAINDER
1 2250 al$(2)=al$(3)
1 2240 al$(3)=v$(1)
1 2230 al$(1)="3"
1 2220 ON p=1
1 2210 al$(3)=v$(1)
1 2200 al$(2)=v$(3)
1 220 st=f_kysy
1 2190 al$(1)="3"
1 2180 IF v$(2)<>",":p_moka:GO TO 2040:END IF
1 2170 ON p=3
1 2160 al$(3)=v$(1)
1 2150 al$(2)=v$(3)
1 2140 al$(1)=v$(5)
1 2130 IF v$(2)<>",":p_moka:GO TO 2040:END IF
1 2120 IF v$(4)<>",":p_moka:GO TO 2040:END IF
1 2110 ON p=5
1 2100 SELect ON p
1 210 REPeat loop
1 2090 p=LEN(v$)
1 2080 IF v$=="quit":RETurn 1:END IF
1 2070 INPUT!v$
1 2060 PRINT"(TO END=quit)?";
1 2050 PRINT"GIVE COLOUR CODE"
1 2040 INK 7
1 2030 LOCal v$(mp),al$(3,1)
1 2020 LOCal p
1 2010 REMark stip, cont, back
1 20070 END DEFine p_ralku
1 20060 PRINT DAY$!DATE$
1 20040 PRINT ohjl$\ots1$\ots2$
1 20030 ohjl$=ohj$&", TIMO SALMI, "&tpvm$
1 20020 reset(8)
1 20010 LOCal ohjl$(mp)
1 20000 DEFine PROCedure p_ralku(ohj$,tpvm$,ots1$,ots2$)
1 2000 DEFine FuNction f_kysy
1 200 WINDOW 256,150,32,66
1 2 REMark Tue 1986 Feb 18 06:59:40
1 19040 END DEFine p_beep1
1 19030 END IF
1 19020 BEEP 4000,70
1 19010 IF bon THEN
1 19000 DEFine PROCedure p_beep1
1 180 p_ralku("COLOUR"),("18.02.86"),(ots1$),(ots2$)
1 170 ots2$="from the three parameter colour code"
1 160 ots1$="Calculates one-parameter colour code"
1 150 DIM ots1$(mp),ots2$(mp)
1 140 DIM tpvm$(8)
1 130 DIM ohj$(mp)
1 100 CLEAR:kokoaika=DATE
1 1 REMark colour (c) Timo Salmi